home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / azpzip / _setup.1 / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  1998-11-25  |  2.9 KB  |  79 lines
  1. Attribute VB_Name = "Module1"
  2. Global RFile As Boolean
  3. Global UseZip As Boolean
  4. Global WState As Long
  5.  
  6. Public Sub DisplayFile(FilName As String)
  7.     Dim FileCompress As String, FileSize As String, FilePacked As String
  8.     Dim FDate As String, FName As String, Enc As String, Prot As String
  9.     Dim i As Integer, ret As String
  10.     Dim x As ListItem
  11.             
  12.     'ALWAYS set sourcefile before decompressing/checking out the file
  13.     frmAZPCoDec.ActiveZipperPro1.SourceFile = FilName
  14.     'Check out the file(s) in the archive by calling different methods
  15.     
  16.  
  17. dummy = frmAZPCoDec.ActiveZipperPro1.FileName(1)  'Quick Init of archive
  18.     For i = 1 To frmAZPCoDec.ActiveZipperPro1.MaxFiles
  19.                        
  20.             'Find the file's name
  21.             FName = frmAZPCoDec.ActiveZipperPro1.FileName(i)
  22.             Set x = frmAZPCoDec.ListView1.ListItems.Add(, , FName)
  23.             
  24.             'Find the Compression Ratio
  25.             FileCompress = frmAZPCoDec.ActiveZipperPro1.Ratio(i)
  26.             x.SubItems(1) = FileCompress
  27.             
  28.             'Find the size of the file after compression
  29.             FilePacked = frmAZPCoDec.ActiveZipperPro1.PackedSize(i)
  30.             x.SubItems(2) = FilePacked
  31.  
  32.             'Find the size of the file before compression
  33.             FileSize = frmAZPCoDec.ActiveZipperPro1.UnPackedSize(i)
  34.             x.SubItems(3) = FileSize
  35.             
  36.             'Find out if the archive is protected or not
  37.             Prot = frmAZPCoDec.ActiveZipperPro1.Protected
  38.             x.SubItems(4) = Prot
  39.             
  40.             'Find out if the archive's files are encrypted or not
  41.             Enc = frmAZPCoDec.ActiveZipperPro1.Garbled(i)
  42.             x.SubItems(5) = Enc
  43.             
  44.             'Find the Date/time
  45.             FDate = frmAZPCoDec.ActiveZipperPro1.FileDate(i)
  46.             x.SubItems(6) = FDate
  47.             
  48.             Next
  49.     
  50. End Sub
  51.  
  52. Public Sub DisplayZipContents(FilName As String)
  53.     Dim FileCompress As String, FileSize As String
  54.     Dim i As Integer, ret As String
  55.     Dim x As ListItem
  56.  
  57.     'ALWAYS set sourcefile before decompressing/checking out the file
  58.     frmAZPCoDec.ActiveZipperPro1.SourceFile = FilName
  59.     'Check out the file(s) in the archive by calling different methods
  60.     
  61.  
  62.     For i = 0 To frmAZPCoDec.ActiveZipperPro1.zMaxFiles
  63.                        
  64.             'Find the file's name
  65.             FName = frmAZPCoDec.ActiveZipperPro1.zFileName(i)
  66.             Set x = frmAZPCoDec.ListView1.ListItems.Add(, , FName)
  67.             
  68.             'Find the size of the file before compression
  69.             FileSize = frmAZPCoDec.ActiveZipperPro1.zFileSize
  70.             x.SubItems(3) = FileSize
  71.             
  72.             'Find the Date/time
  73.             FDate = frmAZPCoDec.ActiveZipperPro1.zFileDate
  74.             x.SubItems(6) = FDate
  75.             
  76.             Next i
  77.     
  78. End Sub
  79.